home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / disk default (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  692 b   |  22 lines
  1. 1 rem disk default
  2. 2 poke53281,13:poke53280,6:poke646,0
  3. 10 printchr$(142)"[147]    c= disk default - richard penn"
  4. 15 gosub1000
  5. 20 forj=679to716:readk:pokej,k:cs=cs+k:next:ifcs<>4119thenprint"bad data":stop
  6. 30 sys679:print""spc(14)"..done..":fordl=1to1500:next:goto60000
  7. 40 data 169,002,141,049,003,141,051,003
  8. 50 data 169,186,141,048,003,169,197,141
  9. 60 data 050,003,096,169,008,133,186,169
  10. 70 data 000,133,010,076,165,244,169,008
  11. 80 data 133,186,076,237,245,010
  12. 90 :
  13. 1000 rem do this for sure
  14. 1010 print"   are you sure you want to do this?"
  15. 1020 poke198,0:wait198,1:geta$:ifa$<>"y"anda$<>"n"then1020
  16. 1030 ifa$="y"thenreturn
  17. 1040 :
  18. 60000 rem re-connect
  19. 60020 print"[147]"spc(12)"loading menu..."
  20. 60030 poke646,peek(53281):f$="magic menu"
  21. 60040 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  22.